 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Data, x As Integer
        Data = Val(InputBox("input Data"))
        Select Case Data
            Case Is < 4
                x = Data + 1
            Case Is < 5
                x = Data + 2
            Case Is < 6
                x = Data + 4
        End Select
        Console.WriteLine("{0}  {1}", Data, x)
End Sub



